Belgian Amiga Club - ADF Collection/BS1 part 60.zip/BS1 part 60/Helm d3.adf/DirBook

Helm Multimedia Book | 1993-07-14 | 36KB | 722 lines

DirBook
Scott Nickerson
02-21-93
selectpathA
begin
  put the name of me into selector "FileA"
selectpathB
begin
  put the name of me into selector "FileB"
changebutton
begin
  ask "Enter path:" with the name of me
  if it is not empty then set the name of me to it
changebutton
selectpathB
selectpathA
FileA
FileB
Enter path:
New...
Open...
Save As...
Streamline
Print...
    Report...
Preferences...
    Workbench
About...
Quit...
Paste
Clear
Select All
Cut Page
    Copy Page
Colors
Load...
Save...
Restore Colors
Default Colors
Brush Colors
Image Colors
Cycle
Grid...
Show All
    Edit Form
Share
    Next Page
Previous Page
First Page
    Last Page
Backward
Forward
    Last Book
Autobrowse...
    Bookshelf
New Page
Delete Page
New Form
Load Form...
Save Form...
Image
Load...
Save...
Capture...
    Clipboard
Paste
Spare
Swap Frames
Copy to Spare
Merge in Front
Merge in Back
Delete Spare
Frame
Previous
Delete
Copy to All
Color
Remap
Transparency
No Transparency
Paper <-> Pen
Paper ->  Pen
Count
Vertical
Horizontal
Info...
Brush
Load...
Save...
Restore
    Clipboard
Paste
Color
Remap
Transparency
Paper <-> Pen
Paper ->  Pen
Center
Corner
    Any Point
Any Size
Halve
Double
Halve Width
Halve Height
Double Width
Double Height
To PAL
To NTSC
Vertical
Horizontal
Shear
Vertical
Horizontal
Rotate
    Any Angle
Paint
Matte
Color
Replace
Smear
Dissolve
Spare
Cycle
Cycle 2
Gradient
Gradient 2
Smudge
Chaos
Count
Custom
Dither
Edges
Object
Load...
Save...
Bring to Front
Send to Back
Bring Closer
Send Farther
Group
Ungroup
Duplicate...
Align...
Info...
Actions...
    Script...
Load...
Save...
Plain
    Underline
Italic
Shadow
Font...
Spacing...
    Hypertext
Actions...
    Script...
Tools
Coordinates
    Title Bar
Palette
Colors
Patterns
Paint Tools
Paint Types
    Histogram
    Magnifier
Messages
Draw Tools
Layers
Author
Book...
Form...
Page...
Display...
Menus...
Narrator...
Hypertext...
Resources...
    Effect...
Effect Area
DDDUUUfffwww
Book23
Small8
topaz.font
PTopaz.font
ram:Book23
/DirBook
wwwPAGE
CGraphics RAM: %3
   Other RAM: %4
          OS: %k
   Processor: %1
FileA
FileB
Delete
COPY ->
Rename
MakeDir
IMAGE
Sound
Music
<- COPY
Delete
Rename
MakeDir
IMAGE
Sound
Music
Halt Music
    Bookshelf
WORK:
WORK:
About
kon SelectUp
begin
  deletefile selector "FileA"
  put strdir of selector "FileA" into selector "FileA"
FileA
FileA
FileA
on SelectUp
begin
  copyfile selector "FileA" to strdir of selector "FileB"
  put strdir selector "FileB" into selector "FileB"
FileA
FileB
FileB
FileB
on SelectUp
begin
  ask "Enter new name:" with selector "FileA"
  if it is not empty then begin
rename selector "FileA" as it
put strdir of selector "FileA" into selector "FileA"
  end
Enter new name:
FileA
FileA
FileA
FileA
on SelectUp
begin
  ask "Enter path and directory name:" with strdir of selector "FileA"
  if it is not empty then begin
makedir it
put strdir of selector "FileA" into selector "FileA"
  end
Enter path and directory name:
FileA
FileA
FileA
Don SelectUp
begin
  show image selector "FileA" fade loops zero
FileA
4on SelectUp
begin
  play sound selector "FileA"
FileA
3on SelectUp
begin
  show text selector "FileA"
FileA
4on SelectUp
begin
  play music selector "FileA"
FileA
on SelectUp
begin
  copyfile selector "FileB" to strdir of selector "FileA"
  put strdir of selector "FileA" into selector "FileA"
FileB
FileA
FileA
FileA
kon SelectUp
begin
  deletefile selector "FileB"
  put strdir of selector "FileB" into selector "FileB"
FileB
FileB
FileB
on SelectUp
begin
  ask "Enter new name:" with selector "FileB"
  if it is not empty then begin
rename selector "FileB" as it
put strdir of selector "FileB" into selector "FileB"
  end
Enter new name:
FileB
FileB
FileB
FileB
on SelectUp
begin
  ask "Enter path and directory name:" with strdir of selector "FileB"
  if it is not empty begin
makedir it
put strdir of selector "FileB" into selector "FileB"
  end
Enter path and directory name:
FileB
FileB
FileB
Don SelectUp
begin
  show image selector "FileB" fade loops zero
FileB
4on SelectUp
begin
  play sound selector "FileB"
FileB
3on SelectUp
begin
  show text selector "FileB"
FileB
4on SelectUp
begin
  play music selector "FileB"
FileB
on SelectUp
begin
  put strdir of selector "FileA" into temporary
  put strdir of selector "FileB" into selector "FileA"
  put temporary into selector "FileB"
FileA
FileB
FileA
FileB
Mon SelectUp
begin
  put strdir of selector "FileA" into selector "FileB"
FileA
FileB
Mon SelectUp
begin
  put strdir of selector "FileB" into selector "FileA"
FileB
FileA
5on SelectUp
begin
  set midi to the hilite of me
Lon SelectUp
begin
  selectpathA()
on MenuUp
begin
  changebutton()
selectpathA
changebutton
Lon SelectUp
begin
  selectpathA()
on MenuUp
begin
  changebutton()
selectpathA
changebutton
Lon SelectUp
begin
  selectpathA()
on MenuUp
begin
  changebutton()
selectpathA
changebutton
Lon SelectUp
begin
  selectpathB()
on MenuUp
begin
  changebutton()
selectpathB
changebutton
Lon SelectUp
begin
  selectpathB()
on MenuUp
begin
  changebutton()
selectpathB
changebutton
Lon SelectUp
begin
  selectpathB()
on MenuUp
begin
  changebutton()
selectpathB
changebutton
Lon SelectUp
begin
  selectpathA()
on MenuUp
begin
  changebutton()
selectpathA
changebutton
Lon SelectUp
begin
  selectpathA()
on MenuUp
begin
  changebutton()
selectpathA
changebutton
Lon SelectUp
begin
  selectpathA()
on MenuUp
begin
  changebutton()
selectpathA
changebutton
Lon SelectUp
begin
  selectpathB()
on MenuUp
begin
  changebutton()
selectpathB
changebutton
Lon SelectUp
begin
  selectpathB()
on MenuUp
begin
  changebutton()
selectpathB
changebutton
Lon SelectUp
begin
  selectpathB()
on MenuUp
begin
  changebutton()
selectpathB
changebutton
on SelectUp
begin
ptopaz
3o3xg
Chicago
p?0v`
p?0|0
s>|~?
?
DIRBOOK V1.0 by EAGLE TREE SOFTWARE
@DirBook is a simple directory utility. You can copy, rename, and
Bdelete files, as well as make directories. DirBook is divided into
>two. The buttons in blue work with the blue file selector. The
.cyan buttons work with the cyan file selector.
=Select one of the top two rows of buttons to change the path.
@Select a directory button with the menu (right) button to change
#the path selected with that button.
=Use the three arrow buttons between the two file selectors to
/copy and swap paths between the file selectors.
=DIRBOOK is not yet the equal of the many shareware and retail
=directory utilities, but it will be. In the meantime, you can
Cimprove it to suit your needs, and distribute the result. This book
is not password protected.
=Each button in the six rows of buttons contains a script. The
@buttons in the first two rows contain functions that are defined
Gby the book. Choose
  from the
Author
  menu and then select
Script
  to view these functions in the book's script.
m                                                                                                 11 July 1993
*About DIRBOOK V1.0 - The Directory Utility
DirBook
Scott Nickerson
02-21-93
selectpathA
begin
  put the name of me into selector "FileA"
selectpathB
begin
  put the name of me into selector "FileB"
changebutton
begin
  ask "Enter path:" with the name of me
  if it is not empty then set the name of me to it
changebutton
selectpathB
selectpathA
FileA
FileB
Enter path:
New...
Open...
Save As...
Streamline
Print...
    Report...
Preferences...
    Workbench
About...
Quit...
Paste
Clear
Select All
Cut Page
    Copy Page
Colors
Load...
Save...
Restore Colors
Default Colors
Brush Colors
Image Colors
Cycle
Grid...
Show All
    Edit Form
Share
    Next Page
Previous Page
First Page
    Last Page
Backward
Forward
    Last Book
Autobrowse...
    Bookshelf
New Page
Delete Page
New Form
Load Form...
Save Form...
Image
Load...
Save...
Capture...
    Clipboard
Paste
Spare
Swap Frames
Copy to Spare
Merge in Front
Merge in Back
Delete Spare
Frame
Previous
Delete
Copy to All
Color
Remap
Transparency
No Transparency
Paper <-> Pen
Paper ->  Pen
Count
Vertical
Horizontal
Info...
Brush
Load...
Save...
Restore
    Clipboard
Paste
Color
Remap
Transparency
Paper <-> Pen
Paper ->  Pen
Center
Corner
    Any Point
Any Size
Halve
Double
Halve Width
Halve Height
Double Width
Double Height
To PAL
To NTSC
Vertical
Horizontal
Shear
Vertical
Horizontal
Rotate
    Any Angle
Paint
Matte
Color
Replace
Smear
Dissolve
Spare
Cycle
Cycle 2
Gradient
Gradient 2
Smudge
Chaos
Count
Custom
Dither
Edges
Object
Load...
Save...
Bring to Front
Send to Back
Bring Closer
Send Farther
Group
Ungroup
Duplicate...
Align...
Info...
Actions...
    Script...
Load...
Save...
Plain
    Underline
Italic
Shadow
Font...
Spacing...
    Hypertext
Actions...
    Script...
Tools
Coordinates
    Title Bar
Palette
Colors
Patterns
Paint Tools
Paint Types
    Histogram
    Magnifier
Messages
Draw Tools
Layers
Author
Book...
Form...
Page...
Display...
Menus...
Narrator...
Hypertext...
Resources...
    Effect...
Effect Area
DDDUUUfffwww
?
DIRBOOK V1.0 by EAGLE TREE SOFTWARE
@DirBook is a simple directory utility. You can copy, rename, and
Bdelete files, as well as make directories. DirBook is divided into
>two. The buttons in blue work with the blue file selector. The
.cyan buttons work with the cyan file selector.
=Select one of the top two rows of buttons to change the path.
@Select a directory button with the menu (right) button to change
#the path selected with that button.
=Use the three arrow buttons between the two file selectors to
/copy and swap paths between the file selectors.
=DIRBOOK is not yet the equal of the many shareware and retail
=directory utilities, but it will be. In the meantime, you can
Cimprove it to suit your needs, and distribute the result. This book
is not password protected.
=Each button in the six rows of buttons contains a script. The
@buttons in the first two rows contain functions that are defined
Gby the book. Choose
  from the
Author
  menu and then select
Script
  to view these functions in the book's script.
=To use the mouse menu button to click on buttons, I activated
?the
Trap Menu Button
  option in the Form window. This means
=that your must move the pointer to the top line of the screen
:and then press the menu button to use the pull-down menus.
m                                                                                                 11 July 1993
*About DIRBOOK V1.0 - The Directory Utility
ram:Book23
/DirBook
?
DIRBOOK V1.0 by EAGLE TREE SOFTWARE
@DirBook is a simple directory utility. You can copy, rename, and
Bdelete files, as well as make directories. DirBook is divided into
>two. The buttons in blue work with the blue file selector. The
.cyan buttons work with the cyan file selector.
=Select one of the top two rows of buttons to change the path.
@Select a directory button with the menu (right) button to change
#the path selected with that button.
=Use the three arrow buttons between the two file selectors to
/copy and swap paths between the file selectors.
=DIRBOOK is not yet the equal of the many shareware and retail
=directory utilities, but it will be. In the meantime, you can
Cimprove it to suit your needs, and distribute the result. This book
is not password protected.
=Each button in the six rows of buttons contains a script. The
@buttons in the first two rows contain functions that are defined
Gby the book. Choose
  from the
Author
  menu and then select
Script
  to view these functions in the book's script.
=To use the mouse menu button to click on buttons, I activated
?the
Trap Menu Button
  option in the Form window. This means
=that your must move the pointer to the top line of the screen
:and then press the menu button to use the pull-down menus.
m                                                                                                 11 July 1993
*About DIRBOOK V1.0 - The Directory Utility